home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 04.g (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  669b  |  30 lines
  1. 5 print"[147]bildumschreiberoutine[146]"
  2. 10 rem bildumschreiber paint magic
  3. 20 rem
  4. 30 rem von wolfgang borgsmueller
  5. 40 rem
  6. 45 ifa=1then500
  7. 50 poke55,144:poke56,48
  8. 60 clr:a=1
  9. 65 print"bitte quelldisk einlegen und name des   paint-magic bildes eingeben!"
  10. 66 input"name ";f$
  11. 70 loadf$,8,1
  12. 80 end
  13. 500 print"zieldisk einlegen!":poke198,0
  14. 510 geta$:ifa$=""goto510
  15. 511 print"bitte geben sie den kennbuchstaben des  fensterbildes ein!
  16. 512 [133]c$
  17. 520 [159]1,8,1,[200](c$,1)[170]" b,p,w"
  18. 525 [152]1,[199](0);[199](128);
  19. 530 [129]i[178]16384[164]21184
  20. 540 [152]1,[199]([194](i));:[130]
  21. 550 [160]1
  22. 555 [133]"hg-farbe des bildes";hg
  23. 556 [133]"farbe 4 des bildes";f4
  24. 560 [159]1,8,1,[200](c$,1)[170]" v,p,w"
  25. 565 [153]"bildname: ";c$
  26. 570 [152]1,[199](254);[199](159);[199](f4);[199](hg);
  27. 580 [129]i[178]24576[164]25176
  28. 590 [152]1,[199]([194](i));:[130]
  29. 600 [160]1
  30.